home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_3 / visual / robotfunk / setup.exe / {app} / fullscreen.dxr / 00001.ls next >
Encoding:
Text File  |  2003-10-23  |  472 b   |  20 lines
  1. on exitFrame me
  2.   go(the frame)
  3. end
  4.  
  5. on keyUp me
  6.   case the keyCode of
  7.     123:
  8.       delta = rect(-1, 0, -1, 0) + (15 * the shiftDown * rect(-1, 0, -1, 0))
  9.     124:
  10.       delta = rect(1, 0, 1, 0) + (15 * the shiftDown * rect(1, 0, 1, 0))
  11.     125:
  12.       delta = rect(0, 1, 0, 1) + (15 * the shiftDown * rect(0, 1, 0, 1))
  13.     126:
  14.       delta = rect(0, -1, 0, -1) + (15 * the shiftDown * rect(-1, 0, -1, 0))
  15.   end case
  16.   tell the stage
  17.     movescreen(delta)
  18.   end tell
  19. end
  20.